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**F ILE**#1]D**CHMSPLLIN 
C 
C 
C 
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ms - Make coge dependent on Len fh of inserted Line. SMB 16-Nov-1982 
-0 


- Reorganize fe : : usr in line nuaber ing. SMB 17-Nov-1982 


10 = Save the end of the old Line in heap storage rather than 
on the stack. Saving it on the stack uses too much 
stack on the PDP-11. JBS 18-Nov-19 
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EDTSCHMSPLLIN = split Line 1§- -Sep- AX-11 Bliss-32 V4.0-74 Page 1. EDT! 
14- ~Se0- 198 99: 38: i EDT SREICHASPLLIN-OL [; : | v04 

3 1 0001 ZTITLE ‘EDTSCHMSPLLIN = split Line’ ; 
s ¢ itd MODULE EDTSCHMSPLLIN ( ! Split line : 
; Z Fg oe = 'v04-000' ' File: CHMSPLLIN.BLI Edit: JBS1013 ‘ 
; 5 Bone 1 BEGIN 3 
; 6 006 1! ; 
+ 4 sit 4 ; cae ie eet gees cee ke aie es Ps 
: '® | Ps 
3 y $009 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 B ’ ; 
> 10 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . : 
P4 1; Bota : e ALL RIGHTS RESERVED. * 3 
: ' t : 
5 ig $O18 1 !e ag i "eek IS FURNISHED UNDER A LICENSE AND MAY BE USED AND series * ; 
; 14 0014 1 !* ONL ACCORDANCE WITH THE TERMS OF CH ICENSE AND WITH THE * ; 
H 15 0015 1 !* INC lUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY THER * ; 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® : 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 2 
$ + id ! - TRANSFERRED. * ‘ 
: '® t ° 
4 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 3 
; $$ O58 ; :* CORPORATION. * | ; 
; 's * $ 
F4 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | : 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ‘ 
; 26 0026 1 is * ; 
eam 4 0027 1 !« * 3 
3 $8 0028 1 wera eae eee REET AAA REAR A AAA EEE : 
3 0029 1! $ 
$ $3 0030 1 | 3 
eS ae 0031 1 !++ 3 
i 0032 1! FACILITY: EDT -- The DEC Standard Editor | : 
3 33 003 1: 
3 34 0034 1 ! ABSTRACT: 
;. 3 0035 1! : : 
3 $3 4 : This module spiits a Line of text at the current cursor position. 
: 4 sit : ENVIRONMENT: Runs at any access mode - AST reentrant | 
; Hy sre : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
> (42 0042 1 | MODIFIED BY: | 
s 65 00435 1! 
: «644 044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 
: 645 045 1! extracting the routines EDTS$SPLT_LN and SPLIT_LINE from 
3 46 0046 1! module CHANGE.BLI. 
s «¢ 0047 1 ! 1-002 - Regularize headers. JBS 03-Mar-1981 
3 48 0048 1 ! 1-005 = Change SPLIT_LINE to EDTS$SPLT_LNINS . JBS 27-Mar-1981 
: 69 049 1 ! 1-004 - Use the ASSERT macro. JBS 01-Jun-19 
ao 1 ! 1-005 - EDTSSSEL -RNGPOS has 3 values. JBS 02- alte 
2. 00 +7 “208 - New screen yecete hogic. JBS 13-Sep-19 
; 2 00 : 007 - Remove EDTS$ NO for new screen Sodate logic. JBS Barret t+ 3 
Se. 1! 
: 5 1! 
: 5 1! 
a 1! 
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| 
| 
1 1-01) = Sot tts call to EDTSSMRKLNCHG. _JBS 27-Dec-1982 | 
| 
| 
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; - "e : he stupid “there is a select active t 

i elect ran evitt. be updated properly. (28S 2-Feb 521583 

! 1-013 - set *EDTSSA LN_PTR before ys omy ng the new line, so thet the 

! screen date Base will get the Line Sreerted in the right place 

; even if the current record is being displayed as two lines. 

} JBS 26-Apr-1983 
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EDTSCHMSPLLIN EDTSCHMSPLLIN = split Line 1hese -1984 00:12:1 AX-11 Bliss-32 v4.0-742 Pa EDT 
v04-000 Declarations 1e-8ep-1986 19535549 EDT. SRCIJCHMSPLLIN.BLI;1 = (23 | v04 
3 se O08 } TSBTTL ‘Declarations’ 
: 70 1 i TABLE OF CONTENTS: 
ca $690 1! 
pe 0071 1 
3 oF Bo7¢ : REQUIRE "EDTSRC: TRAROUNAM’; 
3 75 0312 1 FORWARD ROUTINE 
; 051 1 EDTSSSPLT_LN : NOVALUE, ! Split a Line of text at the current cursor position 
; a baie : EDTSSSPLT_LNINS : NOVALUE; ! Split a Line of text at the current cursor position 
oy ae b2i8 1! 
: 80 17 1°! INCLUDE FILES: 
; 8 0518 1! 
c= 0519 1 
4 8 8280 1 REQUIRE ‘EDTSRC:EDTREQ'; 
; «684 0655 1 
s; #85 0656 1! 
; 686 0657 1 ! MACROS: 
.7 0658 1! 
; 8 0659 1! NONE 
; «689 0660 1! 
; 90 0661 1! 
a 2. Rebs 1! 
x ee 06635 1! NONE 
;  ¢§ 0664 1! 
: 69% 0665 1 ! OWN STORAGE: 
;- 0666 1! 
: 0667 1! NONE 
s 0668 1! 
; 98 0669 1 ! EXTERNAL REFERENCES: 
; 299 0670 1! 
; 100 0671 1! In the routines 
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HMSPLLIN = split Line 16-Sep-1984 00:12:17 AX-11 Bliss-32 V4.0-74 
SPLT_LN = split Line ae 99:38:15 feOT sre CHMSPLLIN.BLI; 


ZSBTTL ‘EDTSSSPLT_LN = split Line’ 
GLOBAL ROUTINE EDTSSSPLT_LN ' Split line 
: NOVALUE = 
le4 
FUNCTIONAL DESCRIPTION: 
sel te a line of text at the current cursor position. 
The characters in front of the cursor become a new Line, inserted 
i front of the current one. The cursor is left on the original 
ne. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
EDTSS$T_LN_BUF 
EDTSSA_LN_END 
EDTSSA_LN_PTR 
IMPLICIT OUTPUTS: 
EDTSSA_LN_PTR 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
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BEGIN 


EXTERNAL ROUTINE 
EDTSSMRK_LNCHG : NOVALUE, 
EDTSS$UPD-LNLEN : NOVALUE, 
EDTSSINS-LN : NOVALUE; 


Track Line updates 
Update the Length of the current Line 
Insert a Line into buffer 


EXTERNAL 
EDTSS$T_LN_BUF, ' Current Line buffer 
EDTSSA_LN_END, ! End of current Line pointer 
EDTSSA_LN_PTR; ! Current character pointer 
LOCAL 
LEN; 


'¢ 
: Get the length of the new Line. 
LEN = CHSDIFF (.EDTSSA_LN_PTR, CHSPTR (EDT$$1_LN_BUF)); 
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EDTSCHMSPLLIN EDTSCHMSPLLIN = split Line 18- $ep-1984 AX-11 Bliss<-32 V4.0-74 Page 
v04 EDTSSSPLT_LN - split Line eases Se P3319 | PANT Oh ieee se acer re ° 
; 189 729 ' Insert the new Line. 
; 160 750 !- 
3 19) 4 1 EDTSSINS_LN (CHSPTR (EDTSS$T_LN_BUF), .LEN); 
3 188 7 j IF (.LEN NEQ 0) 
: 164 734 THEN 
; 165 735 BEGIN 
> 166 7 § EDTSSCPY _MEM (CHSDIFE ( EDTSSA_LN END, .EDTSSA_LN_PTR), .EDTSSA_LN_PTR, CHSPTR (EDTS$T_LN_BUF)); 
; 167 34 EDTSSMRK_LNCHG (SCR_ED IT MODIFY, 0); 
; 168 738 ED DTSSUPD™ “[NLEN (=. LEN); 
; 169 739 ND; 
; 170 740 
: 171 741 EDTSS$A_LN_PTR = CHSPTR (EDTS$T_LN_BUF); 
: 172 0742 1 END; ! of routine EDTSSSPLT_LN 
-TITLE EDTSCHMSPLLIN EDTSCHMSPLLIN = split Line 
-IDENT \v04-000\ 
-EXTRN EDTSSMRK =LNCHG, EDTSS$UPD_LNLEN 
EXTRN EDTSSINS_LN, EDTS$T_LN BOF 
EXTRN EDTSSA rn LENDS EDTSSA_CN_PTR 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


01FC 00000 ENTRY EDTSSSPLT_LN, Save R2,R3,R4,R5,R6,R7,R8 : 

58 000000006 00 9€ 00002 MOVAB EDTS$A_LNPTR, R8 : 

57 000000006 00 9€E 00009 MOVAB EDTS$S$T-LN“BUF, R7 : 

50 67 4 0001 MOV EDTSS$T~ EN BU “BUF, RO : 

56 68 50 ¢3 0001 SUBL RO, EDTSSA_LN_ PTR, LEN : 
28 DD 0001 PUSHL LEN : 

DD 00019 PUSHL R 3 

000000006 00 0e 08 0018 CALLS Hee EDTSSINS_LN ; 

38 13 00024 BEQL 1$ 3 

50 68 00 00026 MOVL EDTSSA_LN RO § 

51 000000006 00 50 ¢ B28 9 SUBL RO, EDTSS x He "END, R1 3 
67 60 51 38 0031 MOVC R1, (RO), EDTS$T_LN_BUF : 
7E 01 7D 00035 MOVQ #1, -(SP : 

000000006 00 02 FB 90038 CALLS #2, EDTSSMRK_LNCHG : 

7E 56 CE 0003F MNEGL LEN, -(SP) : 

000000006 00 01 FB 90042 CALLS #1, EDTSSUPD_LNLEN : 

68 67 3E 90049 1$: HOVAB EDTSST_LN_ BUF EDTSSA _LN_PTR F 


; Routine Size: 77 bytes, Routine Base: _EDTSCODE + 0000 


3; 173 0743 «1 


H 12 | 
EDTSCHMSPLLIN DISCHMSPLLIN = split Line 16-Sep-1984 00:12:1 AX-11 Bliss-32 V4.0-74 P 
04 DISSSPLT-CNINS - seule a line 12-Sep-19 4 99:33: EDT LSREICHASPLLINCOL I: ~— us. 
175 re 1 ZSBTTL “EDTSSSPLT_LNINS = split a Line’ 
74 GLOBAL ROUTINE EDTSSSPLT_LNINS ( ! Split a Line 
74 LENGTH_OPT ! 1 = use Length optimizer 


748 ) : NOVALUE = 


lee 


; FUNCTIONAL DESCRIPTION: 


WO 0Ono 


COMO JIN 


Split a Line of text at the current cursor position. 
! FORMAL PARAMETERS: | 


LENGTH_OPT ! 1.= length is greater than zero so insert 
! after current line 


IMPLICIT INPUTS: 


EDTS$G_LN_LEN 
EDTSST_LN_BUF 
EDTSSA_LN_END 


| 
EDTS$A_LN-PTR | 
EDT$$A_WK-LN | 
| 
| 
| 


SNA NS NNN NNN 


HPAES 
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4 

i] 

i IMPLICIT OUTPUTS: 
t 
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66 
67 
68 
69 
70 
4 
18 
74 
Of fe ROUTINE VALUE 
08 77 
09 78 NONE 
10 79 
11 80 SIDE EFFECTS: 
\¢ 81 
1 Bg Calls EDTSS$SPLT_LN 
14 8 | 
15 84 - 
16 85 
17 86 BEGIN 
18 4 
19 8 EXTERNAL ROUTINE 
20 89 EDTSSMRK_LNCHG : NOVALUE, ! Track Line updates 
21 790 EDTSSUPD_LNLEN : NOVALUE, ' Update the length of the current Line 
$§ 791 EDTSSINS_LN : NOVALU ! Insert a Line into buffer | 
2 79 EDT$SRPL~CHGDLN : NOVALUE, ' Replace a changed workfile Line 
24 79 EDTSSRD_AXTLN, ' Read next work file record | 
$2 794 EDTSSRD_PRVLN ! Read previous record 
6 795 EDTSS$START_INS : NOVALUE, i Start an insert sequence 
27 796 EDTSSEND_INAS : E. ! End an insert sequence 
8 79 EDTSS$ALO_HEAP, ' Allocate heap storage 
, 78 EDTSSDEA_HEAP : NOVALUE; ' Deallocate heap storage 
1 800 EXTERNAL 


12 
EDTSCHMSPLLIN EDTSCHMSPLLIN = split Line 1b-5e 1984 00:12:1 AX-11 Bliss-32 V4.0-74 Pa 7 
104 EDT $SPCTCCNINS = split a line 1 ~Sep-19 4 99:33:15 YEDT SROICHASPLLIN-BL = (4) | 
EDTS$$G_LN_LEN, ! Length of the current Line 
: p EDTSST_LN_BUF, : Current Line buffer 
4 EDTSSA_LN_END, ! End of current Line pointer 
5 0 EDTSSA_LN_PTR, ' Current character pointer 
80 EDTSSA_WK_LN, ' Current work Line 
5 EDT$$Z_EOB_LN ' ne 
: 4 EDTS$A~SEL BUF : REF TBCB_BLOCK; ! Select buffer, 0 = none 
40 080 LOCAL 
41 081 LEN, ! New Length of old Line 
g 081 ENDLEN, ! Ending line Length 
4 +t INSERT_AFTER, ' Insert after current record 
rf} + INSERT_DONE; ! 1 = the insert has been done 
ré' 3 INSERT_DONE = 0; 
23 3 Don't do the Length optinization if we are at CEOB) or if there is an active select. 
50 81 ; 
ry : IF ((.EDTSSA_WK_LN EQLA EDT$$Z_EOB_LN) OR (.EDTSSA_SEL_BUF NEQA 0)) 
: INSERT_AFTER = 0 


at 


IF (.LEN EQL 0) 
THEN 
BEGIN 


| 
| 
4 
| 
| 
} 
| 


WANA WIAA nonofnononononononofy 


SOOWDNAVAE WN $9 DOONAN WN SQ OOODNOULSWN "OOONOULSWNR— wwe 


5 8 
54 8 
2? : INSERT_AFTER = .LENGTH_OPT; 
57 8 IF (.INSERT_AFTER NEQ 0) 
58 8 THEN 
59 8 BEGIN 
60 8 LEN = CHSDIFF (.EDTSSA_LN_PTR, CHSPTR (EDTSST_LN_BUF)); 
61 8 te ENDLEN = CHSDIFF (.EDTSS$A-LN_END, .EDTSSA_LN_PTRY; 
re 8 ! Use the Length optimizer, which says insert below the current Line 
; if we're positioned anywhere except at the beginning of a Line. 
8 
8 
8 
8 
8 


aS we. 


We are at the beginning of the Line. Just insert a O-length Line before this one. 


EDTSSSTART_INS (); ' Perform initialization for text insertion 
EDTSSINS_LA (CHSPTR (EDTS$T_LN_BUF), 0); 

EDTSSEND_INS (); ' 

INSERT_DONE = 1; 


MOPIPEPOPONSNO UNM hononofonononorpofononory 
Wn —-O0@~ 


SRE 


RAAMANAR RE Ee 


! End the insertion sequence 


: Adjust the old Line and mark for repaint. 


ODOOCOCOCOCOOCOOSOOCOOOOOCOOOOSOO OOOO OOOOOOOOOOoOOoO 


CAL 
SAV_LN_BUF , ! Place to save the end of the old Line 
GOT" HEAP; ! 1 = we got (or don’t need) heap storage 
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EDTSCHMSPLLIN EDTSCHMSPLLIN = split Line 1-56 -1984 12:1 AX-11 Bliss-32 V4.0-742 
‘04 EDTSSSPLT_LNINS : split a line 1 ~3007 138% 99333245 EDT. SRCJCHMSPLLIN.BLI;1 
; $8 3; : ; Copy the end of the old Line into heap storage, so we can insert it later. 
: 291 60 4 
: ; e 2 IF (.ENDLEN NEQ 0) THEN GOT_HEAP = EDTSSALO_HEAP (ENDLEN, SAV_LN_BUF) ELSE GOT_HEAP = 1; 
; 94 aBes 4 IF .GOT_HEAP 
> 295 64 4 
; 296 865 ? BEGIN 
: 297 506 
; 98 086 g IF (.ENDLEN NEQ 0) 
; 299 0868 THEN 
; 300 B86? 6 BEGIN 
: 301 0870 6 “ EDTSSCPY_MEM (.ENDLEN, .EDTS$A_LN_PTR, CHSPTR (.SAV_LN_BUF)); 
; 08 bes 6 ! Shorten the current Line. 
> 304 0875 6 !- 
; 05 0874 6 EDTSSUPD_LNLEN (-.ENDLEN); 
; 306 0875 6 EDTSSMRK_LNCHG (SCR_EDIT_MODIFY, .LEN); 
s Jor 0876 5 END; 
; 308 0877 5 
; 309 0878 5 EDTSSRPL_CHGDLN (); 
: 310 0879 5 !+ : 
s Sti 0880 5 ! Insert the tail as the new Line. 
3 31§ 0881 5 !- 
; 3 Het 5 
: 314 0883 6 IF (.ENDLEN NEQ 0) 
; Ge 0884 5 THEN 
: 316 0885 6 BEGIN 
; 317 0886 6 EDTSSCPY_MEM (.ENDLEN, CHSPTR (.SAV_LN_BUF), CHSPTR (EDT$$T_LN_BUF)); 
, 318 0887 6 EDTSSDEA_HEAP (ENDLEN, SAV_LN_BUF); 
: 319 0888 5 END; 
; $59 0889 5 
: 321 0890 5 EDTSSRD_NXTLN (); 
; 32¢ 0891 § EDT$$A_CN PTR = CHSPTR (EDTSST_LN_BUF); == 
; $52 +93 : EDTSSSTART_INS (); !“Perform initialization for text insertion 
; 325 0894 5 ! Adjust the line pointer to the new Line. 
; 326 0895 5 !- 
3 ter 0896 5 EDTSSINS_LN (CHSPTR (EDTS$T_LN_BUF), .ENDLEN); 
; 328 0897 5 EDT$$G_LN_LEN = .ENDLEN + .CEN; 
; 44 0898 5 EDTSSUPD_CNLEN (-.LEN); ; } 
; 330 0899 5 EDTSSEND_INS (); ! End the insertion sequence 
; 331 0900 5 EDT$S$RD_PRVLN (5; 
: 3 030 5 INSERT_BONE = 1; 
3 308 4 END; 
: 336 $904 END 
; $$ 0905 : on 
s 338 309 
; 339 908 '¢ 
3 0 909 ! If we haven't done the insert, perhaps because we have run out of heap storage, 
A 1 910 ! do it the stupid way. 
: 4g 911 !e 
; 34 atg 
3 44 91 IF ( NOT .INSERT_DONE) 
: 45 0914 THEN 


nip tsi : 


K 12 
EDTSCHMSPLLIN EDTSCHMSPLLIN = split Line 16-Sep-1984 00:12:1 AX-11 Bliss-32 V4.0-742 Pa 9 
VO4-000 EDTSSSPLT_LNINS = split a Line 1ex8eb-1964 Voi28s0? — LRDT SREICAMSPLLIN-BL 1s) ca) 
915 BEG ; 
91 EDT SSTART INS (); ! Perform initialization for text insertion ; 
319 EDTSSSPLT_CN (); i Split the he ; 
318 EDTSSEND_ TINS 0; ! End the insertion sequence : 
0920 | 
$358 END; ! of routine EDTSS$SPLT_LNINS | ; 
7 
eEXTRN EDTSSRPL_CHG | 7 
“EXTRN EDTSSRD AXTLN, EDTSSRD_PRVLN | 
SEXTRN EDTS$START_IN Ng, EDTSSERD_INS ; 
EXTRN EDTSSALO_HEAP, EDTSSDEA A REAP : 
EXTRN EDTS$$G_LA_LEN, EDTS$A_WR_L ; 
EXTRN EDTS$$Z_EOB_LN, EDTSSA_ “Sec. ‘BUF : 
OFFC 00000 ENTRY EDTassrLt LNINS, Save R2,R3,R4,R5,R6,R7,RB,-; 0746 ; 
5B 000000006 00 9E 00002 MOVAB EDTSSA‘LN_PTR, R11 : ; 
5a 000000006 00 i 00009 MOV EDTS$T-LN-BUF. R10 : ; 
SE 08 C 90019 SUBL2 #8 SP : ; 
59 D4 0001 CLRL. INSERT_DONE + 0815 : 
50 000000006 00 9€ 00015 MOVAB EDT$$Z~ -Fo8 LN, RO + 0820 ; 
50 000000006 00 01 9001¢ CMPL  EDTS$SA~WK_CN, RO : ; 
08 13 0002 BEQL =s1$ : ; 
000000006 00 03 00025 TSTL  EDTS$A_SEL_BUF : ; 
04 13 00028 BEQL 2 : F 
50 D4 0002D 1$ CLRL INSERT _AFTER + 0822 : 
04 11 0002F BRB $ : : 
50 04 AC DO 00031 2$: MOVL ha catia INSERT_AFTER : 0824 é 
03 12 00035 3$: BNEQ $ + 0826 ; 
00D1 31 00037 4s: BRW 12$ : 3 
51 6B 00 0003A 5S: MOV EDTSS$A_LN_PTR, R1 + 0829 ; 
50 6A 9E 0003D MOV EDTSST = =tN BUF. RO : ; 
56 51 50 ¢3 00040 SUBL3. RO, R1 : ; 
04 AE 000000006 00 51 C3 00044 SUBL3. R11. ED fs$ay _LN_END, ENDLEN : 0830 ; 
56 D5 00040 TSTL LEN > 0836 ; 
1C 12 0004F BNEQ «6S : ; 
000000006 00 90 FB 00051 CALLS #0, EDTS$$START_INS : 084 : 
E d4 00058 CLRL 0 = (§P) > 084 : 
5A DD 0005A PUSHL R10 ; ; 
000000006 00 02 FB 005¢ CALLS #2, EDTSSINS_LN : ; 
000000006 00 re 006 CALLS #0. EDTSSEND-INS > 0844 : 
0098 3 A BRW 11§ > 0845 : 
04 AE D3 9060 6$ TSTL NDLEN ; 0861 | : 
— 1 BEQL $ F ; 
E bb 07 PUSHL SP F | ; 
08 A F 8) PUSHAB ENDLEN : a 
000000006 00 re 77 CALLS #2, EDTS$SALO_HEAP : 
50 + 00 9008 78: ROVL. «I, GOT HEAP | 
e! 0 PS 8$: BLBC  GOTf_HEAP > 0863 | 
7 04 AE 00 MOVL GROCER. ar'® : 0867 
2 D4 A CLAL Re 3 
D3 C TSTL «OR ; 
iF O08E BEQL  9$ : 


12 | 
EDTSCHMSPLLIN EDTSCHMSPLLIN = split Line ibess 1984 12:1 AX-11 Bliss-32 V4.0-742 Page 10) 
v04- EDTSSSPLT-_LNINS © split a Line 1raeea habe POiSSil§ | PANT TL Oh ise cde Ve Br ree 
5 8 08 0092 dove Be SSA LN_PTR, RO : 0870 
00 BE é0 } b 09 MOVC3 Ry. (RO), @SAV_LN_BUF : : 
E 7 CE O09A MNEGL R7. -(SPS ; 0874 ; 
000000006 00 gi FB 99D CALLS #1, EDTSSUPD_LNLEN : : 
6 DD O00A4 BUHL LEA : 0875, ; 
01 oD OAg PUSHL & : ; 
000000006 00 02 FB 000A CALLS #2, EDT$SMRK_LNCHG : : 
0009006 0 FB OOAF 9$ CALLS #0, EDTS$SRPL-CHGDLN : 0878 F 
11 5 0086 BLBC RB. > 0883 ; 
6h 00 BE 8 0008 MOVC3 7, @SAV_LN_BUF, EDT$$T_LN_BUF + 0886 : 
SE pD 908 PUSHL SP : 0887 ; 
08 AE 9F 000C PUSHAB ENDLEN : : 
000000006 00 02 FB 000C CALLS #2, EDT$$DEA_HEAP : 
000000006 00 00 FB OOOCA 10$: CALLS #0, EDTS$$RD_AXTLN + 0890 : 
6B 6A 9E 00001 MOVAB EDTS$T_LN BOF, EDT$S$A_LN_PTR : 0891 ; 
000000006 00 00 FB 000D4 CALLS #0, EDTSSSTART_INS : 0892 : 
04 AE DD 00008 PUSHL ENDLEN + 0896 ; 
5A DD 000D PUSHL R10 : : 
000000006 00 02 FB O00E CALLS #2, EDT$SINS_LN : : 
000000006 00 04 BE46 9E O00E MOVAB @ENDLENCLENJ; EDT$$G_LN_LEN : 0897 ; 
7E 56 CE OOF MNEGL =(SP) + 0898 : 
000000006 00 01 FB O00F CALLS #1, EDT$SUPD_LNLEN : : 
000000006 00 00 FB OOOFA CALLS ; EDT$SEND71I + 0899 ; 
000000006 00 00 FB 00101 CALLS EDTS$$RD_PRVLN : 09 ; 
59 01 DO 00108 11$ MOVL #1, INSER Bone 3; 0901 3 
13 59 €8 00108 12$ BLBS _ INSERT_DONE, 13$ : 0913 : 
000000006 00 00 FB 00106 CALLS #0, EDTS$$START_INS + 0916 : 
FESO —sCF 00 FB 0011 CALLS #0, EDTSSSPLT_C + 0917 ; 
000000006 60 00 FB OO11A CALLS #0, EDTS$END_INS : 0918 : 
04 00121 138: RET + 0921 : 


; Routine Size: 290 bytes, Routine Base: _EDTSCODE + 004D 


1 
1 !<BLF/PAGE> 


Size: 367 ¢ 0 data bytes 
Run Time: 09 
Elapsed Time: 00 
Lines/CPU Min: 3 
onenen  at 8 

cy Ve 110 p 
Compi len Complet 


Bete Se Se Ge Ge Ge 


mM 12 | 
EDTSCHMSPLLIN EDTSCHMSPLLIN = spiit Line 16-Sep-1984 1 AX-11 Bliss-32 V4.0-74 Pa 11 
042000 EDT$ Teseper LNINS split a Line 1e-8ep-1986 99: 38: i LEDT. SRCICHMSPLLIN.BLI; - a] 
; 5 a5 END ! of medule EDTSCHMSPLLIN 
: 358 $9 6 0 ELUDOM 

| 
; PSECT SUMMARY | 
: Name Bytes Attributes 
: _EDTSCODE 367 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
ae eee. es 2 SyYERSLG eoeosesa Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 25 é 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
HMSP 


: ane =(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:CHMSPLLIN/OBJ=OBJ$:CHMSPLLIN MSRC$:CHMSPLLIN.BLI/UPDATE=(ENH$:C 
| 
| 
| 
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DIGITAL EQUIPMENT CORPORATION: 
CONFID 


ENTIAL -AND PROPRIETARY 


